home *** CD-ROM | disk | FTP | other *** search
/ PC Accelerator 10 / HOMEWRLD.bin / BEHAV.CXT / 00009_Script_Research Arrow < prev    next >
Text File  |  1999-03-23  |  2KB  |  65 lines
  1.  
  2. property scrollDirection
  3.  
  4. property mySpeed
  5.  
  6. property myTop
  7.  
  8. property myTopLimit
  9.  
  10. property myBottomLimit
  11.  
  12. global gTextSprite
  13.  
  14.  
  15. on beginSprite me
  16.    -- set myTop = the scrollTop of member (the member of sprite gtextSprite)
  17. end
  18.  
  19. on mouseEnter Me
  20.   --gives the hand cursor
  21.  --  cursor [100,101]
  22. end
  23.  
  24. on mouseLeave me
  25.   --restors the cursor
  26.   -- cursor 0
  27. end
  28.  
  29.  
  30. on mouseDown me
  31.   put the scrollTop of member (the member of sprite gtextSprite) into mytop
  32.   
  33.   case (scrollDirection) of
  34.     #Up:
  35.       
  36.       repeat while the stilldown
  37.         if mytop > myBottomLimit then EXIT
  38.         sendSprite(gtextSprite,#enterFrame)
  39.         set the scrolltop of member (the member of sprite gtextSprite) to myTop + mySpeed
  40.         
  41.         updateStage
  42.         put the scrollTop of member (the member of sprite gtextSprite) into mytop
  43.       end repeat
  44.       
  45.     #Down:
  46.       
  47.       repeat while the stilldown
  48.         
  49.         if mytop < myTopLimit then EXIT
  50.         sendSprite(gtextSprite,#enterFrame)
  51.         set the scrolltop of member (the member of sprite gtextSprite) to myTop - mySpeed
  52.         
  53.         updateStage
  54.         put the scrollTop of member (the member of sprite gtextSprite) into mytop
  55.       end repeat
  56.   end case
  57. end
  58.  
  59. on getPropertyDescriptionList
  60.   
  61.   set p_list = [#scrollDirection: [ #comment:"Direction:",#format: #symbol,#range:[#Up,#Down], #default: #Up ],#mySpeed: [ #comment:"Speed of Scroll:",#format: #integer, #default: 3 ], #mytopLimit: [ #comment:"TopLimit:", #format: #integer, #default: 1 ], #mybottomLimit: [ #comment:"Bottom Limit:",#format: #integer, #default: 1 ]  ]
  62.   
  63.   return p_list
  64. end
  65.